0 IFF=0THENF=1:IFPEEK(34872)<>162THENLOAD"KITT",8,1
10 PRINT"[147]":SYS24516
20 CLR:HID=50 :DIM A(50),B(50)
30 W1=54276:W2=54283:W3=54290
40 T1=54277:T2=54284:T3=54291
50 S1=54278:S2=54285:S3=54292:U=98:V=96
60 A1=54273:A2=54272:B1=54280:B2=54279    :C1=54287:C2=54286:VO=54296
70 FORI=A2TOVO:POKEI,0:NEXT
80 FOR I=1 TO 49:READ A(I),B(I):NEXT
90 POKE VO,15
100 POKE T1,136:POKE T2,40:POKE T3,136
110 POKE S1,100:POKE S2,68 :POKE S3,100
120 POKE W1,33:POKE W2,33:POKE W3,33
130 DATA 4,73,4,139,4,208,5,25,5,103,5,185,6,16,6,108,6,206,7,53,7,163,8,23
140 DATA 8,147,9,21,9,159,10,60,10,205,11,114,12,32,12,216,13,156,14,107,15,70
150 DATA 16,47,17,37,18,42,19,63,20,100,21,154,22,227,24,63,25,107,27,56,28,214
160 DATA 30,141,32,94,34,75,36,85,38,126,40,200,43,52,45,198,48,127,51,97,54,111
170 DATA 57,172,61,126,64,188,68,149
180 READ X1,X2,X3:IF X1=-1 THEN 20
190 IF X1=-2 THEN 210
200 POKE A1,A(X1):POKE A2,B(X1)
210 IF X2=-2 THEN 230
220 POKE B1,A(X2):POKE B2,B(X2)
230 IF X3=-2 THEN 250
240 POKE C1,A(X3):POKE C2,B(X3)
250 FORI=1TO HID:NEXT
260 POKEB1,0:POKEB2,0:POKEC1,0:POKEC2,0
261 IFKER=0THEN KER=1:SYS24416:GOTO180
265 KER=0:SYS24448:GOTO180
280 DATA 0,28,9,-2,28,9,0,29,0,0,28,0,0,28,9,-2,29,9,-2,28,0,-2,28,0
290 DATA-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
300 DATA 0,28,9,-2,28,9,0,29,0,0,28,0,0,28,0,-2,29,0,-2,28,0,-2,28,0
310 DATA-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
320 DATA0,26,7,-2,26,7,0,27,0,0,26,0,0,26,7,-2,27,7,0,26,0,-2,26,0
330 DATA0,27,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
340 DATA0,26,7,-2,26,7,0,27,0,0,26,0,0,26,0,-2,27,0,0,26,0,-2,26,0
350 DATA0,27,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
360 DATA33,28,9,-2,28,9,34,29,0,33,28,0,40,28,9,-2,29,9,-2,28,0,-2,28,0
370 DATA-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
380 DATA 45,28,9,-2,28,9,46,29,0,45,28,0,40,28,0,-2,29,0,-2,28,0,-2,28,0
390 DATA-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
400 DATA33,28,9,-2,28,9,34,29,0,33,28,0,40,28,9,-2,29,9,45,28,0,-2,28,0
410 DATA43,27,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
420 DATA-2,26,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
430 DATA 33,28,9,-2,28,9,34,29,0,33,28,0,40,28,9,-2,29,9,-2,28,0,-2,28,0
440 DATA-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
450 DATA 45,28,9,-2,28,9,46,29,0,45,28,0,40,28,0,-2,29,0,-2,28,0,-2,28,0
460 DATA-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
470 DATA33,28,9,-2,28,9,34,29,0,33,28,0,40,28,9,-2,29,9,45,28,0,-2,28,0
480 DATA46,27,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
490 DATA-2,26,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
500 DATA-2,26,7,-2,26,7,-2,26,0,-2,26,0,-2,25,7,-2,26,7,-2,26,0,-2,26,0
510 DATA-2,26,7,-2,26,7,-2,26,0,-2,26,0,-2,25,7,-2,26,7,-2,26,0,-2,26,0
520 DATA-2,26,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
530 DATA38,22,7,-2,22,7,40,25,9
540 DATA0,28,9,0,29,0,0,28,0,0,28,9,-2,29,9,-2,28,0,-2,28,0
550 DATA-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
560 DATA 0,28,9,-2,28,9,0,29,0,0,28,0,0,28,0,-2,29,0,-2,28,0,-2,28,0
570 DATA-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
580 DATA0,26,7,-2,26,7,0,27,0,0,26,0,0,26,7,-2,27,7,0,26,0,-2,26,0
590 DATA0,27,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
600 DATA21,28,9,-2,28,9,-2,29,0,-2,28,0,-2,28,9,-2,29,9,-2,28,0,-2,28,0
610 DATA28,28,9,-2,28,9,-2,29,0,-2,28,0,-2,28,9,-2,29,9,-2,28,0,-2,28,0
620 DATA33,28,9,-2,28,9,-2,29,0,-2,28,0,-2,28,9,-2,29,9,-2,28,0,-2,28,0
630 DATA-2,28,0,-2,28,0,40,28,16,-2,28,16,-2,28,4
640 DATA 0,0,0,-1,-1,-1